130 L =  PEEK (37): IF  NOT QQ THEN  DIM R$(40),DL(40):QQ = 1
 131  POKE 216,0: FOR X = 0 TO 39:R$(X) = " ":DL(X) = 0: NEXT : FOR X = 1 TO  LEN (ST$):R$(X) =  MID$ (ST$,X,1): NEXT : FOR X = 0 TO  LEN (ST$) - 1:DL(X) =  INT (( RND (1) * L) - L): NEXT 
 132  FOR X = 0 TO  LEN (ST$):DL(X) = DL(X) + 1: IF DL(X) > L THEN DL(X) = L
 133  IF DL(X) = 0 THEN DL(X) = 1
 134  IF DL(X) < 1 THEN 137
 135  HTAB (X +  INT ((20 -  LEN (ST$) / 2))): VTAB DL(X): PRINT R$(X): IF DL(X) = 1 THEN 137
 136  HTAB (X +  INT ((20 -  LEN (ST$) / 2))): VTAB DL(X) - 1: PRINT " "
 137  NEXT 
 138  FOR X = 0 TO  LEN (ST$) - 1: IF DL(X) <  > L THEN 132
 139  NEXT : RETURN